home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0793 / VTOOLTST.PAS < prev   
Pascal/Delphi Source File  |  1993-08-01  |  2KB  |  65 lines
  1. PROGRAM VToolTest;
  2. {
  3.  ****************************************************************************
  4.  ****************************************************************************
  5. }
  6.  
  7. {$M 16000,0,50000}
  8.  
  9. USES Crt,Voctool;
  10.  
  11. VAR
  12.    Sound : Pointer; { Pointer on Ă©chantillon in memory }
  13.    Check : BOOLEAN; { Flag for boolean test            }
  14.    Ch    : CHAR;    { Input Buffer                     }
  15.  
  16. PROCEDURE Erreur;
  17. {
  18. }
  19. BEGIN
  20.    Write(' error #',VOCErrStat:3,' =');
  21.    PrintVOCErrMessage;
  22.    WriteLn;
  23.    HALT(VOCErrStat);
  24.    END;
  25.  
  26. BEGIN
  27.   ClrScr;
  28.  
  29. { the driver aren't installed }
  30.   IF Not(VOCDriverInstalled) THEN Erreur;
  31.  
  32. { Load DEMO.VOC file in memory }
  33.   Check := VOCGetBuffer(Sound,'DEMO.VOC');
  34.  
  35. { Incorrectly loading }
  36.   IF Not(Check) THEN Erreur;
  37.  
  38. { Master Loop of programm }
  39.   Write('CT-Voice-Driver Version : ');
  40.   WriteLn(Hi(VOCDriverVersion),'.',Lo(VOCDriverVersion));
  41.   WriteLn('Would-you like hear (o)ne or (r)epeat sound ?');
  42.   Write('INPUT : '); Ch := ReadKey;WriteLn;WriteLn;
  43.   CASE UpCase(Ch) OF
  44.    'O' : BEGIN
  45.             Write('Press anykey for stop ...');
  46.             VOCOutput(Sound);
  47.             REPEAT UNTIL KeyPressed OR (VOCStatusWord = 0);
  48.             IF KeyPressed THEN VOCStop;
  49.             END;
  50.    'R' : BEGIN
  51.             Ch := #0;
  52.             Write('Press <ESC> for stop...');
  53.             REPEAT
  54.                VOCOutputLoop(Sound);
  55.                REPEAT UNTIL KeyPressed OR (VOCStatusWord = 0);
  56.                IF KeyPressed THEN Ch := ReadKey;
  57.                UNTIL Ch = #27;
  58.             VOCStop;
  59.             END;
  60.    END;
  61.  
  62. { Free memory of VOC File }
  63.   Check := VOCFreeBuffer(Sound);
  64.   IF Not(Check) THEN Erreur;
  65. END.